SCREEN 1,640,400,5,1
  WINDOW 2,,,2+4+8,1
beginn:
  PALETTE 0,0,0,0.6   
  PALETTE 1,0,0,0.6   :PALETTE 2,0,0,0.6      
  PALETTE 4,0.93,0.2,0 :PALETTE 3,0,0,0.6   :PALETTE 5,0.93,0.2,0     
  PALETTE 6,1,0.8,0   :PALETTE 7,1,1,0    :PALETTE 8,0.6,1,0.15   
  PALETTE 9,0.5,0.8,0.15:PALETTE 10,0.4,0.6,0  
  PALETTE 15,0,1,0.6  :PALETTE 16,0.2,1,0.93:PALETTE 17,0.2,0.75,1               
  PALETTE 26,0.8,0.55,0.5 
  PALETTE 27,0.6,0.4,0.35:PALETTE 28,0.4,0.2,0 
  PALETTE 30,0.6,0.6,0.6 :PALETTE 31,0,0,0     
  COLOR 15,0
  LOCATE 2,1:PRINT "Sie kennen doch bestimmt das Haus vom "
  LOCATE 3,1:PRINT "Nikolaus,versuchen Sie doch einmal,das"
  LOCATE 4,1:PRINT "Haus mit vier Giebeln,in einem Zug,ohne"
  LOCATE 5,1:PRINT "abzusetzen und ohne doppelte Linien
  LOCATE 6,1:PRINT "zu zeichnen."
  FOR x=-0 TO 60 STEP 0.5
  PSET (180-x,180),6       
  NEXT x
  FOR x=-0 TO 60 STEP 0.5
  PSET (120,180-x),6      
  NEXT x
  FOR x=-0 TO 30 STEP 0.5   
  PSET (120+x,120-x),6     
  NEXT x
  FOR x=0 TO 30 STEP 0.5
  PSET (150+x,90+x),6      
  NEXT x
  FOR x=-0 TO 60 STEP 0.5
  PSET (180-x,120),6      
  NEXT x
  FOR x=0 TO 60 STEP 0.5
  PSET (120+x,120+x),6    
  NEXT x
  FOR x=-0 TO 60 STEP 0.5
  PSET (180,180-x),6      
  NEXT x
  FOR x=0 TO 60 STEP 0.5
  PSET (180-x,120+x),6    
  NEXT x
  LINE (90,150)-(120,120),5
  LINE (90,150)-(120,180),5
  LINE (120,180)-(150,210),5
  LINE (150,210)-(180,180),5
  LINE (180,180)-(210,150),5
  LINE (180,120)-(210,150),5
  COLOR 5,0
  LOCATE 28,1 :PRINT "So diese drei roten Giebel noch dazu"
  LOCATE 29,1 :PRINT "zeichnen,ohne abzusetzen!"
start:
   LINE (225,175)-(300,200),27,bf 
   LINE (225,175)-(300,200),5,b      
   LINE (226,176)-(299,199),6,b           
   LOCATE 24,30:PRINT "ZEICHNEN"
Maus:
   WHILE 1
   v= MOUSE(0)
   IF MOUSE(0) = 0 THEN WEND
   CALL Maus(x,y)
   IF x<225 OR x>300 THEN GOTO Maus
   IF y<175 OR y>200 THEN GOTO Maus
   SUB Maus (x,y) STATIC
   x = MOUSE(1)
   y = MOUSE(2)
   END SUB
   GOSUB zeichnen  
zeichnen:
   CLS      
   LINE (225,175)-(300,200),27,bf      
   LINE (225,175)-(300,200),5,b      
   LINE (226,176)-(299,199),7,b      
   LOCATE 24,32:PRINT "NEU"
punkte:
      CIRCLE (150,40),2
      CIRCLE (150,200),2
      CIRCLE (60,120),2
      CIRCLE (240,120),2
      CIRCLE (100,80),2
      CIRCLE (150,120),2                 'PUNKTE
      CIRCLE (100,160),2
      CIRCLE (200,160),2
      CIRCLE (200,80),2
      GOSUB mauss
mauss:
   WHILE 1
   v= MOUSE(0) :x=MOUSE(1) :y=MOUSE(2)
   IF MOUSE(0) = 0 THEN WEND
   CALL mauss (x,y)
   IF x<225 OR x>300 THEN GOTO mauss      'NEUTASTE
   IF y<175 OR y>200 THEN GOTO mauss
   SUB mauss (x,y) STATIC
   LINE (x,y)-(MOUSE(1),MOUSE(2)),7
   x=MOUSE(1):y=MOUSE(2)
   END SUB
   GOTO zeichnen
  
 '********************************************************************
   'Detlef Kornatz 
   'Feuerbachstrasse 6
   '4300 Essen 1
                       'Nicht ärgern war nur Spass
 '********************************************************************